10 FADE 100 GOSUB 1000 REM ********* pause game facility *********** 10000 REM ******* ANIMATE HOG ******** 1010 FREEZE 1020 IF 1030 GOTO 1040 REM ********* SCORE ZONES SET UP AND CHECKED ******** 1050 SET ZONE 1060 IF 1070 IF 1080 VARNAME 1090 PEN 110 IF 1100 PEN 1110 IF 1120 RETURN 11320 SPRITE 11330 ANIM 11331 ANIM 11332 ANIM 11333 ANIM 11334 ANIM 1199 REM ********* worm/turbo hog go ********** 120 GOSUB 1200 VARNAME 1205 SPRITE 1210 IF 1220 RETURN 1299 REM ********** HI SCORE TABLE ************ 130 IF 1300 REM ******** START INTRO HERE ********** 1302 MUSIC 1320 GOSUB 1390 WAIT 140 GOSUB 1400 REM 1410 CLS 1420 SPRITE 1440 IF 1441 LOCATE 1450 ANIM 1451 IF 1456 ANIM 1460 SPRITE 1461 LOCATE 1470 WAIT 1471 LOCATE 1472 WAIT 1473 LOCATE 1474 WAIT 1475 LOCATE 1476 IF 1477 IF 1478 GOTO 1480 FADE 1490 CLS 150 IF 1520 SPRITE 1531 IF 1532 LOCATE 1535 SPRITE 1536 LOCATE 1537 WAIT 1538 LOCATE 1540 PRINT 1549 LOCATE 1550 IF 1588 IF 1589 GOTO 1590 REM ****** COLOUR CYCLES ******** 1591 SHIFT 1592 REM ****** COLOUR CYCLES ******** 160 GOSUB 170 IF 180 GOSUB 190 IF 20 REM ******** main game loop ************ 200 GOSUB 201 IF 210 INC 220 GOSUB 230 IF 240 GOSUB 250 IF 260 GOSUB 270 IF 280 GOSUB 290 IF 30 IF 300 GOSUB 31 IF 310 IF 32 IF 320 GOSUB 33 IF 330 GOTO 335 IF 336 RETURN 340 REM ******** car movements *********** 350 SPRITE 360 SPRITE 370 SPRITE 380 SPRITE 390 SPRITE 40 GOSUB 400 SPRITE 410 SPRITE 420 SPRITE 430 SPRITE 440 SPRITE 450 SPRITE 460 SPRITE 470 SPRITE 480 SPRITE 490 SPRITE 50 IF 500 REM *********** set up screens *** get ready then game screen ********* 501 IF 510 SCROLL 520 SCREEN COPY 530 WAIT VBL 540 FOR 550 INK 560 FADE 570 REM *********** collision checking ************ 580 HIDE 590 IF 60 GOSUB 600 IF 610 IF 620 REM ****** scores setups ************* 630 SPRITE 640 ANIM 650 VARNAME 660 REM ******* check if need to put cars back ? ********** 670 IF 680 IF 690 ANIM 70 IF 700 REM ******** CHECK SCORES AND WAIT FOR NEXT PLAYER ********** 710 IF 720 IF 730 IF 740 IF 750 GOTO 760 REM ****** collision yes ! ************ 770 SHOOT 775 VARNAME 780 IF 790 MOVE 80 GOSUB 800 PEN 810 PEN 820 IF 830 PAPER 840 IF 850 IF 860 IF 870 IF 880 IF 890 IF 9 KEY 90 IF 900 IF 910 RETURN 920 REM ********** end game ********* 930 MUSIC 940 WAIT VBL 950 REM ********* alter the game music speed/pitch ********** 960 IF 970 IF 980 IF 990 RETURN